s-gikan2.maizuru-ct.ac.jp/s-gikan2.maizuru-ct.ac.jp.zip/s-gikan2.maizuru-ct.ac.jp/pub/ncvc352_install.exe/{app}/scripts/remove_sequence_number.pl

Perl Script | 2004-03-30 | 302b | 17 lines

#! /usr/bin/perl

#  NCâfü[â^é╠âVü[âPâôâXö╘ìåé≡ìφÅ£é╖éΘâXâNâèâvâg  #
#  ex.N0001X0Y0 -> X0Y0                          #

$pre_file= $ARGV[0];
$out_file= $ARGV[1];
open(IN,$pre_file);
open(OUT,">$out_file");

while(<IN>){
    if(/^N[\d\s]+/){ $_= $'; }
    print OUT;
}
close(OUT);
close(IN);